10 PRINT"[147]            PLEASE WAIT !"
20 IFF=0THENF=1:LOAD"JOB.MUSIC",8,1
30 IFF=1THENF=2:LOAD"JOB.MUSICOUT",8,1:
105 POKE45,0:POKE47,0:POKE49,0:POKE46,64:POKE48,64:POKE50,64
107 S1=16194
108 S2=16216
109 S3=16255
110 S4=16329
111 DATA  0,  0,165, 51,141, 64, 63
112 DATA165, 52,141, 65, 63,169,  0
113 DATA133,51,169,4,133,52,32,68,229,169,80,162,0,160,0,145,51,224,3,240,5
114 DATA200,208,247,240,5,200,192,248,144,240,230,52,232,224,4,208,231,173,64
116 DATA63,133,51,173,65,63,133,52,96,165,51,141,64,63,165,52
117 DATA141,65,63,169,0,133,51,169,32,133,52,166,184,32,198,255,162,0,160,0,32
118 DATA207,255,145,51,32,225,255,240,21,224,31,240,5,200,208,239,240,5,200,192
119 DATA64,144,232,230,52,232,224,32,208,223,166,184,32,204,255,173,64,63,133
120 DATA51,173,65,63,133,52,96,165,51,141,64,63,165,52,141,65,63,169,32,133,52
121 DATA169,0,133,51,170,160,0,145,51,224,31,240,5,200,208,247,240,5,200,192,64
122 DATA144,240,230,52,232,224,32,208,231,173,64,63,133,51,173,65,63,133,52,96
140 FORA=0TO191:READB:POKE16192+A,B:S=S+B:NEXT:
146 IFS<>23831THENPRINT"FEHLER":END
148 A1=53248+17
149 A2=PEEK(A1)
150 B1=53248+24
151 B2=PEEK(B1)
153 GOTO205
158 POKE53280,HF:POKE53281,HF:POKES2,PF*16+HF:POKEA1,59:POKEB1,24
159 SYSS1
165 RETURN
172 POKEA1,A2:POKEB1,B2:POKE53280,HF:POKE53281,HF:PRINTCHR$(147);:RETURN
183 OPEN2,8,2,DN$+",P,R":GET#2,A$:GET#2,A$:
184 SYSS3:
185 CLOSE2:RETURN
199 SYSS4
200 RETURN
205 GOSUB199:GOSUB172:PRINTCHR$(159);CHR$(147);:DN$="JOB.SCREEN":PF=00:HF=07:
206 GOSUB183:GOSUB158:GETA$
210 SYS828,2
216 GETA$
217 IFA$=""THEN216
219 GOSUB172:
220 SYS828,0
221 GOSUB1000:
222 IFF<3THENF=3:LOAD"JOB.MAIN",8,1
224 INPUT"HINTERGR.";HF
225 INPUT"ZEICHENF.";PF
227 GOSUB158:GOTO216:GOSUB172:END
1000 PRINT"[147]":POKE53280,6:POKE53281,6
1010 PRINT"  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
1020 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]   [194]             ";
1030 PRINT"                      [194]   [194] ZIEL D";
1040 PRINT"IESES SPIELES IST ES,BINNEN [194]   [194] ";
1050 PRINT"3 JAHREN SOVIEL GELD WIE MOEGLICH ";
1060 PRINT"[194]   [194] ZU  ERWIRTSCHAFTEN. NACH 3 J";
1070 PRINT"AHREN [194]   [194] FOLGT DIE  AUSWERTUNG,";
1080 PRINT" WOBEI  NUR [194]   [194] DAS BARGELD EINE";
1090 PRINT" ROLLE SPIELT.DAS [194]   [194] HEISST:  V";
1100 PRINT"OR JANUAR 1993  MUESSEN [194]"
1110 PRINT"  [194] ALLE AKTIEN,REPORTER,HALLEN  ECT. [194]"
1120 PRINT"  [194] VERKAUFT WERDEN.                  [194]"
1130 PRINT"  [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
1140 PRINT"  [194] AUTOR:          JENS HOEHNE       [194]"
1150 PRINT"  [194]                 MICHELANGELOSTR.7 [194]"
1160 PRINT"  [194]                 DRESDEN O-8020    [194]"
1170 PRINT"  [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
1180 PRINT"  [194]         WRITTEN IN 1991           [194]"
1190 PRINT"  [194]                                   [194]"
1200 PRINT"  [194] VIELEN DANK AN T.LEO. FUER SEINE  [194]"
1210 PRINT"  [194] GEISTREICHEN (!!?!) TIPS !!!!!!!  [194]"
1220 PRINT"  [194]                                   [194]"
1230 PRINT"  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
2000 RETURN